home *** CD-ROM | disk | FTP | other *** search
/ Aminet 24 / Aminet 24 (1998)(GTI - Schatztruhe)[!][Apr 1998].iso / Aminet / docs / hyper / ED_Menu.lha / ed-menü / arexx / WD.ed < prev   
Encoding:
Text File  |  1993-04-11  |  220 b   |  12 lines
  1. /* WD.ed (Week Day) */
  2. Address "Ed"
  3. Day=Date("W")
  4. Days="Mo Tu We Th Fr Sa Su"
  5. Tage="Montag Dienstag Mittwoch",
  6. " Donnerstag Freitag Samstag",
  7. " Sonntag"
  8. DayNr=Find(Days,Left(Day,2))
  9. Tag=Word(Tage,DayNr)
  10. 'E//'||Tag||'/'
  11.  
  12.